home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / misc / mousetest.lha / TestLMB.ASM < prev    next >
Assembly Source File  |  1992-12-17  |  201b  |  13 lines
  1. ;      TestLMB by Ed Mackey
  2.  
  3. ;      Returns WARN if LMB is pressed.
  4.  
  5.        moveq   #0,d0
  6.        move.b  $BFE001,d1
  7.        btst    #6,d1
  8.        bne     nope
  9.        moveq   #5,d0
  10. nope:  rts
  11.  
  12.        END
  13.